home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / ace_final.lha / ACE_GPL_Release / prgs / Turtle / flower.b < prev    next >
Encoding:
Text File  |  1996-08-29  |  410 b   |  39 lines
  1. '...a flower via turtle graphics
  2.  
  3. defint i
  4.  
  5. window 1,"Flower",(0,0)-(640,200),6
  6. font "topaz",8
  7. color 2,1
  8. cls
  9.  
  10. sub fourside
  11.   for i=1 to 2
  12.     forward 40
  13.     turnright 30
  14.     forward 40
  15.     turnright 150
  16.   next
  17. end sub
  18.  
  19. sub flower
  20.   for i=1 to 18
  21.     fourside
  22.     turnright 20
  23.   next
  24. end sub
  25.  
  26. penup
  27. setxy 320,100
  28. pendown
  29.  
  30. flower
  31.  
  32. locate 21,1
  33. print "press 'q'..."
  34.  
  35. while ucase$(inkey$)<>"Q"
  36. wend
  37.  
  38. window close 1
  39.